home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / NEWSOFT / AUGUST / WORKDISC / !Forthmacs / risc_os / Tcl / Forthmacs < prev    next >
Text File  |  1997-07-22  |  4KB  |  90 lines
  1. # Simple but usefull Tcl/shade shell for RISC OS Forthmacs
  2. # Thanks to C.T.Stretch (ct.stretch@ulst.ac.uk)
  3. # for porting Tcl and inventing shade
  4. # © Hanno Schwalm for RISC OS Forthmacs interface 17.02.97
  5.  
  6. source {Forthmacs:risc_os.Tcl.setup}
  7. w_init Forth
  8.  
  9. w_box progInfo create "About this program"\
  10.   {vlist {info Name "RISC OS Forthmacs"}
  11.          {info Purpose "Forth programming environment"}    {info Author "© Hanno Schwalm & Mitch Bradley"}
  12.          {info Version "3.1/2.75 - 22.07.97"}        {display "Licence" Licence 31}}
  13.  
  14. w_box optionbox create "Forthmacs Runtime Options"\
  15.  {vlist {box Options
  16.     {vlist {option "Forth debugger"  debugflag}   {option "ARM tracer"      traceflag}
  17.        {option "Opimizer (sqz)" optimizerflag}    
  18.            {option "Profiler"        profileflag} {option "Clock"           clockflag}
  19.            {option "RS-232 tools"    serialflag}  {option "Block interface" blockflag}
  20.            }}
  21.  {box "Memory model"
  22.    {hlist {radio "Small" binsizevar} {radio "Large" binsizevar}}} {hlist {action " OK " {}}}}
  23.  
  24. w_box docbox create "Forthmacs Formatter"\
  25.  {vlist
  26.    {box "Formatter output"
  27.     {hlist    {radio "ASCII" docdriver}
  28.         {radio "HTML"  docdriver}
  29.         {radio "LaTeX" docdriver}}}
  30.     {hlist {action " OK " {binary makedocs}}}}    
  31.  
  32.  
  33. w_box searchbox create "Online help"\
  34.   {vlist {write "Forth word" searchname}
  35.          {default " OK " {search $searchname}}}
  36.  
  37. w_box registerbox create "Registered User"\
  38.  {vlist {write "User Name" licencename }
  39.     {write "Date mmddyy" licencedate }
  40.         {default " OK " {makelicence $licencename $licencedate}}}
  41.  
  42. w_bar -menu {Forthmacs
  43.  {Info            -sub {Infos
  44.    {Info            -dbox progInfo}
  45.    {"Copyrights of Fonts"    -click {showfile Forthmacs:risc_os.Tcl.Fontlegal}}
  46.    {Copyrights            -click {showfile Forthmacs:docs.ascii.copyright}}}}
  47.  {"Online help"        -dbox searchbox}
  48.  {Options        -dbox optionbox}
  49.  {Programs        -sub {Programs
  50.    {Forth            -click {binary Forth}}
  51.    {Kernel            -click {binary Kernel}}
  52.    {"Font Forth"        -click {binary fForth}}
  53.    {"SWL-Tools"        -click {runforth lib.arm.fft.display}}
  54.    {WimpForth            -click {binary wForth}}}}
  55.  {Documents        -sub {Dokuments
  56.    {"Port Notes"        -sub {"Port Notes"
  57.      {Readme            -click {showfile Forthmacs:risc_os.readme}}
  58.      {"Version history"        -click {showfile Forthmacs:risc_os.versions}}}}
  59.    {Manual        -sub {"Ascii manual pages"
  60.      {Copyrights        -click {showfile Forthmacs:docs.ascii.copyright}}
  61.      {"General Information"    -click {showfile Forthmacs:docs.ascii.convention}}
  62.      {"Forth tutorial"        -click {showfile Forthmacs:docs.ascii.tutorial}}
  63.      {"Implementation details"    -click {showfile Forthmacs:docs.ascii.RO_impleme}}
  64.      {"Keyboard interface"    -click {showfile Forthmacs:docs.ascii.typing}}
  65.      {"Assembler tutorial"    -click {showfile Forthmacs:docs.ascii.armastut}}
  66.      {"Assembler manual"    -click {showfile Forthmacs:docs.ascii.armassem}}
  67.      {"Trap handling"        -click {showfile Forthmacs:docs.ascii.armtraps}}
  68.  }}}}
  69.  {Developer    -sub {Developer
  70.     {Target        -sub {Target
  71.       {Kernel            -click {compiler kernel}}
  72.       {Forth            -click {compiler utils}}
  73.       {SWL-Tools        -click {compiler SWL-Tools}}
  74.       {"Font Forth"        -click {compiler fonts}}
  75.       {Search            -click {compiler search}}} -grey meta}
  76.     {Archive        -sub {Archive
  77.       {Backup            -click {binary backup}}
  78.       {"All Archives"        -click {binary MkTarget}}
  79.       {Workdisc            -click {archive WorkDisc}}
  80.       {Metacompiler        -click {archive Metacomp}}} -grey develop}
  81.     {Registering        -dbox registerbox -grey develop}
  82.     {"Make Docs"        -dbox docbox -grey docs}
  83.  }}
  84.  {Quit                -click {doexit}}
  85. } -drag  {runforth $w_file} -click {clickproc %b}
  86.  
  87. system "set ForthmacsTcl running"
  88.  
  89.  
  90.